unit BonusPawn;

interface

uses Pawn, Player, Graphics, Types;

type
 TBonusPawn = class(TPawnWithImage)
 public
  procedure OnDestruct(Player: TPlayer); override;
  constructor Create(Dim: integer; Color: TColor; Value: Integer);
 end;

implementation

constructor TBonusPawn.Create(Dim: integer; Color: TColor; Value: Integer);
begin
 inherited Create(dim, Color, Value, 'graph\bonus.bmp');
end;

procedure TBonusPawn.OnDestruct(Player: TPlayer);
begin
 Player.MultipyPoints(2);
end;

end.
